home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / QUERFLOP.SC < prev    next >
Text File  |  1992-03-14  |  2KB  |  61 lines

  1. ;-------QUERFLOP.SC
  2. ;---------------------------------MAIN MENU FOR QUERFLOP
  3. CLEARALL
  4. ;------------------------------DISPLAY OPENING SCREEN.
  5. STYLE ATTRIBUTE 30
  6. CLEAR
  7. @ 8,20
  8. ?? "GARRY'S FLOPPY DISK CATALOGGING QUERY SYSTEM"
  9. STYLE
  10. @ 10,1
  11. TEXT
  12.  
  13.                 SELECT OPTIONS FROM THE MENU ABOVE BY EITHER USING
  14.                 CURSOR KEYS TO HIGHLIGHT OR BY TYPING THE FIRST LETTER
  15.                 OF THE OPTION. MOVING THE CURSOR DISPLAYS A BRIEF
  16.                 DESCRIPTION OF EACH OPTION.
  17.  
  18. ENDTEXT
  19. ;-------------------SET UP MENU LOOP
  20. CHOICE = " "
  21. WHILE CHOICE <> "EXIT"
  22.       ;----------------SHOW OPTION MENU.
  23.       SHOWMENU
  24.           "DISK" : "FIND BY DISK #",
  25.           "DESC" : "FIND BY DESCRIPTION",
  26.           "CAT" : "FIND BY CATEGORY",
  27.           "S/W" : "FIND SHAREWARE",
  28.           "COMM" : "FIND COMMERCIAL SOFTWARE",
  29.           "LOC" : "FIND BY BOX IDENTIFICATION",
  30.           "2nd QUERY" : "FURTHER DEFINE FIRST QUERY",
  31.           "REPORT" : "PRINT A REPORT OF ANSWER",
  32.           "EXIT" : "RETURN TO MAIN MENU"
  33.       TO CHOICE
  34.       ;------------------PLAY SCRIPT OF CHOICE.
  35.       SWITCH
  36.          CASE CHOICE = "DISK" :
  37.               PLAY "DISKQ"
  38.          CASE CHOICE = "DESC" :
  39.               PLAY "DESCQ"
  40.          CASE CHOICE = "CAT" :
  41.               PLAY "CATQ"
  42.          CASE CHOICE = "S/W" :
  43.               PLAY "SWQ"
  44.          CASE CHOICE = "LOC" :
  45.               PLAY "LOCQ"
  46.          CASE CHOICE = "COMM" :
  47.               PLAY "COMMQ"
  48.          CASE CHOICE = "2nd QUERY" :
  49.               PLAY "FLPQUER2"
  50.          CASE CHOICE = "REPORT" :
  51.               PLAY "ANSREPCL"
  52.      ENDSWITCH
  53. ENDWHILE
  54. ;------------------EXIT
  55. CLEAR
  56. STYLE REVERSE
  57. @ 12,24
  58. ?? "RETURNING TO MAIN MENU..."
  59. PLAY "FLOPPY"
  60. SLEEP 1000
  61.